home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 November
/
Ahoy_Magazine_88-11_1988_Double_L.d64
/
File Locator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
660b
|
17 lines
1 rem ==================================
2 rem commodares problem #54-2 :
3 rem file locator
4 rem solution by
5 rem larry louks & jim borden
6 rem ==================================
10 data 162,1,32,198,255,32,228,255,230,251,208,4,230,252,240,6,165
20 data 144,41,64,240,239,76,204,255
30 print"[147]- alpha & omega -64 or 128-":sa=2816:if fre(0)=fre(1) then sa=49152
40 fory=sa to sa+24: read k: poke y,k: cs=cs+k: next
45 if cs<>4012 then print "data error": end
50 input" enter filename";pn$: print: fb=251: fc=252: poke fb,0: poke fc,0
60 open 1,8,2,"0:"+pn$: get#1,a$,b$: d=asc(a$+chr$(0))+256*asc(b$+chr$(0))
70 print "starts at" d
80 sys sa: ln=peek(fb)+peek(fc)*256: t=d+ln-1
90 print "ends at" t: close 1